﻿Imports System.Data.SqlClient
Imports Control_Vuelos_BE

Public Class T_CentroCostoTrabajadorADO
    ReadOnly MiConexion As New ConexionADO()
    Dim scriterio As String = ""

    Public Function pr_Select_TCentroCosto(ByRef p_key As String) As DataTable
        Try
            Const sql As String = "SELECT * FROM dbo.T_CentroCostoTrabajador "
            scriterio = IIf(p_key.Trim() = "", "", " Where  " & Trim(p_key))
            Dim cn As New SqlConnection(MiConexion.GetCnx)
            Using cn
                Dim da As SqlDataAdapter = New SqlDataAdapter(sql & scriterio, cn)
                Using da
                    cn.Open()
                    Dim dt As DataTable = New DataTable("TCentro")
                    ' Rellenamos el objeto DataTable
                    da.Fill(dt)
                    Return dt
                End Using
            End Using
        Catch myException As Exception
            MsgBox("T_CentroCostoTrabajadorADO (pr_Select_TCentroCosto) --> " & myException.Message, MsgBoxStyle.Critical)
            Return Nothing
        End Try
    End Function

    Public Function pr_RecuperarTrabajador(ByVal p_codigoidentificacion As String) As T_CentroCostoTrabajadorVE
        Dim _T_centrocosto As New T_CentroCostoTrabajadorVE
        If p_codigoidentificacion = String.Empty Then
            Return _T_centrocosto
        End If

        Dim cn As New SqlConnection(MiConexion.GetCnx)
        Using cn
            cn.Open()
            Dim sInstruccion As String = "SELECT * FROM dbo.T_CentroCostoTrabajador " & _
                " WHERE codigoidentificacion = @codigoidentificacion "
            Dim cmd2 As New SqlCommand(sInstruccion, cn)
            cmd2.Parameters.AddWithValue("@codigoidentificacion", p_codigoidentificacion)
            Try
                Dim da As SqlDataAdapter = New SqlDataAdapter(cmd2)
                Using dt As DataTable = New DataTable("Traba")
                    da.Fill(dt)
                    Dim drCurrent As DataRow
                    For Each drCurrent In dt.Rows
                        _T_centrocosto.vendor = drCurrent("vendor").ToString.Substring(0, 6)
                        _T_centrocosto.apellidopaterno = drCurrent("apellidopaterno")
                        _T_centrocosto.apellidomaterno = drCurrent("apellidomaterno")
                        _T_centrocosto.nombres = drCurrent("nombres")
                        _T_centrocosto.fechaingreso = drCurrent("fechaingreso")
                        _T_centrocosto.codigoidentificacion = drCurrent("codigoidentificacion")
                        If IsDBNull(drCurrent("centrocostos1")) Then
                            _T_centrocosto.centrocostos1 = ""
                        Else
                            _T_centrocosto.centrocostos1 = drCurrent("centrocostos1")
                        End If
                        If IsDBNull(drCurrent("centrocostos2")) Then
                            _T_centrocosto.centrocostos2 = ""
                        Else
                            _T_centrocosto.centrocostos2 = drCurrent("centrocostos2")
                        End If
                        If IsDBNull(drCurrent("departamento")) Then
                            _T_centrocosto.departamento = ""
                        Else
                            _T_centrocosto.departamento = drCurrent("departamento")
                        End If
                        If IsDBNull(drCurrent("descripcionlugartrabajo")) Then
                            _T_centrocosto.descripcionlugartrabajo = ""
                        Else
                            _T_centrocosto.descripcionlugartrabajo = drCurrent("descripcionlugartrabajo")
                        End If
                        If IsDBNull(drCurrent("direccionvendor")) Then
                            _T_centrocosto.direccionvendor = ""
                        Else
                            _T_centrocosto.direccionvendor = drCurrent("direccionvendor")
                        End If
                        If IsDBNull(drCurrent("telefonovendor")) Then
                            _T_centrocosto.telefonovendor = ""
                        Else
                            _T_centrocosto.telefonovendor = drCurrent("telefonovendor")
                        End If
                        If IsDBNull(drCurrent("telefonovendor2")) Then
                            _T_centrocosto.telefonovendor2 = ""
                        Else
                            _T_centrocosto.telefonovendor2 = drCurrent("telefonovendor2")
                        End If
                        If IsDBNull(drCurrent("telefonocelular")) Then
                            _T_centrocosto.telefonocelular = ""
                        Else
                            _T_centrocosto.telefonocelular = drCurrent("telefonocelular")
                        End If
                        If IsDBNull(drCurrent("titulopuesto")) Then
                            _T_centrocosto.titulopuesto = ""
                        Else
                            _T_centrocosto.titulopuesto = drCurrent("titulopuesto")
                        End If
                        If IsDBNull(drCurrent("centrocostos1")) Then
                            _T_centrocosto.centrocostos1 = ""
                        Else
                            _T_centrocosto.centrocostos1 = drCurrent("centrocostos1")
                        End If
                        If IsDBNull(drCurrent("pctcentrocostos1")) Then
                            _T_centrocosto.pctcentrocostos1 = 0.0
                        Else
                            _T_centrocosto.pctcentrocostos1 = drCurrent("pctcentrocostos1")
                        End If

                    Next
                End Using
                Return _T_centrocosto
            Catch myException As Exception
                MsgBox("T_CentroCostoTrabajadorADO (pr_RecuperarTRabajador) --> " & myException.Message, MsgBoxStyle.Critical)
                Return Nothing
            End Try
        End Using
    End Function

    Public Function pr_GetTrabajadorInfoHtml(ByVal DniTra As String) As String
        Dim RstTra As New T_CentroCostoTrabajadorVE
        RstTra = pr_RecuperarTrabajador(DniTra)
        Dim ret As String = String.Format("Nombre: <b>{0}</b>", RstTra.apellidopaterno & " " & RstTra.apellidomaterno & " " & RstTra.nombres)
        ret &= String.Format(Constants.vbCrLf & "CARGO :  <b>{0}</b>", RstTra.titulopuesto)
        ret &= String.Format(Constants.vbCrLf & "Lugar de Residencia: <b>{0}</b>", RstTra.departamento)
        Return ret
    End Function

End Class
